Private Sub Worksheet_SelectionChange(ByVal Target As Range) '可以直接sub(),不然选择就会触发vba Dim rows_coun ...

1.substitute(需要执行替换操作的单元格,需要替换的字符,替换后的字符,有多个需要替换的字符可以指定替换的第几个) 例如：aab——substitute("aab","a","b",2)— ...

1.Worksheets("Sheet1").Range("A1").End(xlDown).Select '意思为自A1起，返回从上往下的最后一个非空单元格 此时返回的单元格是 ...

注意事项：此方法注意运用excel空值单元格填充，因此数据处理之前，如果存在值为空的，请特殊处理，后期处理完再替换为原来的空值 1.在决定分行数的列后插入一列 2.根据逗号之前值最多的数量来决 ...

方法1：运用excel单元格拆分合并实现 思路：用VBA正则查询左侧括号个数，对右侧单元格逐一按逗号、顿号等符号分列，同时左侧按括号分列（分列只能按括号单边分列），分列完成后按要求合并， ...

一、是一个对象，用于执行 正则表达式！ 二、有三个属性： 1. Global属性: True or False, 指明模式是匹配整个字符串中所有与之相符的地方还是只匹配第一次出现的地方。默认 ...

Sub test1() Dim h Dim j As Integer j = 0 '用于辅助循环的进行，可以在拆分行获取下一个需要拆分单元格的行号 'Application. ...

代码： Function zhengze3(ze1 As String, ze2 As String, Rng1 As Range, Rng2 As Range) Set regx ...

Function test(a As Integer)'构造函数名字为test参数为a且为int型 If a >= 90 Then Debug.Print "优秀" test ...